CU Amiga Super CD-ROM 17/CU Amiga Magazine's Super CD-ROM 17 (1997)(EMAP Images)(GB)[!][issue 1997-12].iso/CUCD/Programming/AMOSList/AMOSLIST.0997/[e-mail]_Mon Sep 15 21:39:16 1997.msg

Text File | 1997-10-01 | 7KB | 226 lines

Received: from svcs1.digex.net (svcs1.digex.net [204.91.197.224])
    by mail2.access.digex.net (8.8.5/8.8.5) with ESMTP id VAA18873
    for <[e-mail]>; Mon, 15 Sep 1997 21:39:13 -0400 (EDT)
Received: (from daemon@localhost)
    by svcs1.digex.net (8.8.5/8.8.5) id QAA01181
    for amos-out; Mon, 15 Sep 1997 16:56:58 -0400 (EDT)
Received: from mail2.access.digex.net (mail2.access.digex.net [205.197.247.3])
    by svcs1.digex.net (8.8.5/8.8.5) with ESMTP id QAA01177
    for <[e-mail]>; Mon, 15 Sep 1997 16:56:56 -0400 (EDT)
Received: from leary.huron.net ([e-mail] [205.150.207.2])
    by mail2.access.digex.net (8.8.5/8.8.5) with ESMTP id QAA17563
    for <[e-mail]>; Mon, 15 Sep 1997 16:56:36 -0400 (EDT)
Received: from golden.net (ppp18-ts1-kw.huron.net [205.150.207.67])
    by leary.huron.net (8.8.5/8.8.5) with SMTP id QAA09287
    for <[e-mail]>; Mon, 15 Sep 1997 16:53:02 -0400
From: "Mr. Giark To You" <[e-mail]>
To: AMOS List <[e-mail]>
Date: Mon, 15 Sep 1997 16:55:13 -0500
Message-ID: <[e-mail]>
X-Mailer: YAM 1.3.3 - Amiga Mailer by Marcel Beck
Subject: TCP
MIME-Version: 1.0
Content-Type: text/plain
Status: O
X-Status:

Here's a .guide file containing the TCP commands from the GUI extension. I was
going to send them to Pietro directly, but a lot of you already have the GUI
extension. Anyway, following is the .giude file.

--------------CUT----------------
@DATABASE TCP Commands

@NODE Main "GUI Extension TCP Commands"

                                   @{b}GUI Extension@{ub}

                                   @{u}TCP Commands@{uu}

                                  @{" Introduction " LINK "Introduction"}
                                  @{"   Commands   " LINK "Commands"}
@ENDNODE

@NODE "Introduction"
@NEXT "Commands"
@PREV "Main"
@TOC "Main"
                                  !!!
                                  o o
                  +-----------oOO-(_)-OOo----------------+
                  |                                      |
                  |  Pietro Ghizzoni - Dairymen Soft     |
                  |     E-Mail:  [e-mail]        |
                  |            Team AMIGA                |
                  |                                      |
                  | Amos Professional Team Coordinator   |
                  |                                      |
                  +--------------------------------------+

This document was created by Giark (C. Edward Stewart) after examining the
TCP example programs and email response from Pietro Ghizzoni.
@ENDNODE

@NODE "Commands"
@NEXT "Tcp Open"
@PREV "Introduction"
@TOC "Main"

                               @{u}The TCP Command List@{uu}

                                  @{" =Tcp Open    " LINK "Tcp Open"}
                                  @{" =Tcp F Open  " LINK "Tcp F Open"}
                                  @{" =Tcp Put$    " LINK "Tcp Put$"}
                                  @{" =Tcp Read    " LINK "Tcp Read"}
                                  @{" =Tcp Code    " LINK "Tcp Code"}
                                  @{" =Tcp Time    " LINK "Tcp Time"}
                                  @{" =Tcp Send    " LINK "Tcp Send"}
                                  @{" Tcp Reset    " LINK "Tcp Reset"}
                                  @{" =Tcp Channel " LINK "Tcp Channel"}
                                  @{" =Tcp Buffer  " LINK "Tcp Buffer"}
@ENDNODE

@NODE "Tcp Open"
@NEXT "Tcp F Open"
@PREV "Commands"
@TOC "Main"
=Tcp Open(<logical file number>,<port data$>)

Open a TCP channel using the port data

e.g. X=Tcp Open(1,"timequake.unterlab.org/6667") to open a port to IRC
@ENDNODE

@NODE "Tcp F Open"
@NEXT "Tcp Put$"
@PREV "Tcp Open"
@TOC "Main"
=Tcp F Open(<logical File number>,<path$>)

Open a file to write your incoming TCP data to

e.g. X=Tcp F Open(2,"RAM:IRC.log")
@ENDNODE

@NODE "Tcp Put$"
@NEXT "Tcp Read"
@PREV "Tcp F Open"
@TOC "Main"
=Tcp Put$(<Logical file number>,<string$>)

Send a string to the TCP port

e.g. X=Tcp Put$(1,"NICK Giark")
@ENDNODE

@NODE "Tcp Read"
@NEXT "Tcp Code"
@PREV "Tcp Put$"
@TOC "Main"
=Tcp Read(<logical file number>,<buffer>,<size>)

Get <size> bytes from the channel, and put them into the <buffer>, a
previously defined AMOS bank.

e.g  S=Start(10) : X=Tcp Read(1,S,100)

Using the bank as a buffer allows the command to run asynchronously. The
command doesn't wait for data to become available, it just sends a request
to the channel. When there is data to be read, Gui Wait will inform you.

A very simple example:

S=Start(10)
A=Tcp Read(1,S,100)
B=Gui Wait
If B=-9 : Rem TCP/IP message received
 D=Tcp Code : Rem D=number of bytes received
 B=Tcp Buffer : Rem B=address of the buffer where the data is stored
EndIf
@ENDNODE

@NODE "Tcp Code"
@NEXT "Tcp Time"
@PREV "Tcp Read"
@TOC "Main"
=Tcp Code

When you receive a TCP/IP message (Gui wait returns -9) you can obtain the
associated code

e.g. if you receive the result of a read request, Tcp Code returns the number
of bytes received. If it's a write request, Tcp Code returns the number of
bytes transferred.
@ENDNODE

@NODE "Tcp Time"
@NEXT "Tcp Send"
@PREV "Tcp Code"
@TOC "Main"
=Tcp Time

Returns the amount of time elapsed since the last Tcp Reset.
@ENDNODE

@NODE "Tcp Send"
@NEXT "Tcp Reset"
@PREV "Tcp Time"
@TOC "Main"
=Tcp Send(<logical file number>,<buffer>,<code>)

Send the specified number of bytes, starting from <buffer>, to the channel.
Like Tcp Read, this command is asynchronous. The command doesn't wait for the
end of the transfer, but quits immediately so your program can continue its
work. When the transfer is complete, you will receive a TCP/IP message. See
the @{"above" LINK "Tcp Read"} example.

e.g. X=Tcp Send(1,S,125)
@ENDNODE

@NODE "Tcp Reset"
@NEXT "Tcp Channel"
@PREV "Tcp Send"
@TOC "Main"
Tcp Reset

Resets the TCP internal timer. After using Tcp Time you can read the amount
of time elapsed since the last Tcp Reset.
@ENDNODE

@NODE "Tcp Channel"
@NEXT "Tcp Buffer"
@PREV "Tcp Reset"
@TOC "Main"
=Tcp Channel

Returns the channel number associated with the TCP/IP message returned by
Gui Wait
@ENDNODE

@NODE "Tcp Buffer"
@PREV "Tcp Channel"
@TOC "Main"
=Tcp Buffer

Returns the buffer address associated with the TCP/IP message returned by
Gui Wait.

e.g if you receive the result of a read request (Tcp Read) Tcp Buffer is
the address where the data is stored.
@ENDNODE

---------------CUT------------------

Well met and godspeed,
                      Giark
                                           [e-mail]
                             http://www.golden.net/~joehick/fbn/index.html
     ______  ______    _____  .------------------------------------------.
    / ____/ / __  /   / ___ \ !     AMOS games, utilities, demos, etc.   !
   / /__   / /_/ /   / /  / / !                                          !
  / ___/  / ___  |  / /  / /  !       CyberSpace BBS [phone]       !
 / /     / /__/ /  / /  / /   !     on A2000 060/50MHz [phone]     !
/_/     /______/  /_/  /_/    !                                          !
   Fly By Nite Videe-Oh!      !  FBN Amiga 500 020 14MHz 1C/5F RAM 3.1OS !
         IAPA Member          `------------------------------------------'